R COMPLR 45

LISP COMPILER 
*N

N 
UNBOUND VARIABLE - EVAL

*(SPECIAL UPPERFLAG)

(UPPERFLAG) 
*(SETQ UPPERFLAG NIL)

NIL 
*(COMPL COMPLR)↑C
↑C

.R LISP 30

ALLOC? Y
FULL WDS=3000 
BIN.PROG.SP=14400 
SPEC.PDL= 
REG. PDL= 
HASH=475 


*(SETQ UPPERFLAG NIL)

NIL 
*(DE ISSUBR (X) (GET X @ISSUBR))

ISSUBR 
*(DSKIN(COMPLR.LAP))

(DELETEPROP 10421) 
(HASPROP 10427) 
(INITPROP 10443) 
(SEEKPROP 10460) 
(SETPROP 10462) 
(ACTONEXPR 10510) 
(ACTONMACRO 10520) 
(CMP 10562) 
(COMPDEF 10613) 
(COMPFILE 10652) 
(COMPFUNC 10724) 
(COMPILE 10757) 
(COMPILEFUN 11044) 
(COMPL 11143) 
(COMPREADS 11145) 
(CURFILE 11150) 
(CURFUN 11153) 
(DECLARE 11156) 
(DEFEXPR 11257) 
(DEFFEXPR 11315) 
(DEFMACRO 11352) 
(DO*EXPR 11360) 
(DO*FEXPR 11366) 
(DOACT 11376) 
(DODE 11411) 
(DODF 11424) 
(DODM 11437) 
(DOFILE 11475) 
(FLUSHEXPR 11504) 
(FLUSHLAP 11575) 
(MAKDEF 11616) 
(MAPPUT 11640) 
(PRINTMSG 11671) 
(READLOOP 11706) 
(SPECIAL 11711) 
(TELLTALE 12027) 
(TYPEFN 12057) 
(UNSPECIAL 12062) 
(CINIT 12065) 
(SUBFUN1CSTART 12067) 
(SUBFUN2CSTART 12071) 
(CSTART 12123) 
(DOACT ACTONMACRO) 
(DODE EVAL COMPDEF DODF DODM FLUSHLAP EVAL EVAL MAPPUT MAPPUT MAPPUT ~
MAPPUT MAPPUT) 
(DEFEXPR DEFFEXPR DEFMACRO EVAL EVAL DO*EXPR DO*FEXPR EVAL EVAL EVAL)~
 
NIL 
DSK: 
LAP 
T 
(DOP1 12133) 
(GENFUN 12216) 
(MAPP1 12221) 
(P1 12402) 
(P1ANDOR 12423) 
(P1BIND 12535) 
(P1BUG 12561) 
(P1COND 12606) 
(P1CONS 12646) 
(P1ELSE 12676) 
(P1ERRSET 12727) 
(P1EVAL 12746) 
(P1FUNCTION 12753) 
(P1*FUNCTION 12760) 
(P1GO 13015) 
(P1LABEL 13072) 
(P1PROG 13277) 
(P1RETURN 13317) 
(P1SETQ 13364) 
(P1STORE 13403) 
(P1SUBRARGS 13417) 
(PASS1 13541) 
(PASS1FSUBR 13542) 
(PASS1FUNVAR 13553) 
(PASS1LAMBDA 13624) 
(PASS1LSUBR 13634) 
(PASS1MACRO 13644) 
(PASS1SUBR 13654) 
(PASS1UNDEF 13663) 
(SPECIALP 13665) 
(VARB 13713) 
(VARIABLEP 13725) 
(PASS1SUBR PASS1SUBR PASS1SUBR PASS1SUBR PASS1UNDEF PASS1LSUBR PASS1L~
SUBR PASS1FSUBR PASS1FSUBR PASS1FSUBR PASS1FSUBR DOP1 PASS1FUNVAR PAS~
S1MACRO) 
(P1COND P1GO P1PROG P1EVAL P1ERRSET P1SETQ P1STORE P1ANDOR P1CONS P1A~
NDOR P1*FUNCTION P1FUNCTION P1RETURN) 
INMACRO 
(PASS1INMACRO 13735) 
(APPEND 13762) 
(LIST 14010) 
(NOT 14013) 
(ZEROP 14024) 
(ACEFFECTS 14036) 
(ACNUMP 14056) 
(BINDARGS 14101) 
(BOOLAND 14114) 
(BOOLARGS 14211) 
(BOOLEQ 14373) 
(BOOLEXPR 14405) 
(BOOLNULL 14422) 
(BOOLOR 14442) 
(BOOLVALUE 14473) 
(CALLFSUBR 14527) 
(CALLFUNARGS 14576) 
(CALLLSUBR 14725) 
(CALLSUBR 15017) 
(CLEAR1 15032) 
(CLEARBOTH 15045) 
(CLEARAC 15062) 
(CLEARITALL 15073) 
(CLEARACS 15107) 
(CLRCCLST 15136) 
(CLRLOCS 15212) 
(CLRPVARS 15245) 
(CLRSPECS 15263) 
(CLRSPVAR 15316) 
(CLRTRASH 15331) 
(CLRTRASH1 15370) 
(COMPARGS 15416) 
(COMPEXPR 15420) 
(COMPPRED 15423) 
(COMPFORM 15526) 
(COMPSTAT 15531) 
(COPT 15574) 
(CPUSH 15736) 
(CSFUN 15757) 
(CSTEP 16015) 
(DOP2BOOL 16074) 
(DOP2ELSE 16106) 
(DOP2VAL 16122) 
(DVP 16237) 
(EQUIVTAG 16266) 
(EXITBUM 16346) 
(FREEAC 16350) 
(FREEAC1 16413) 
(FINDFREEAC 16415) 
(FREEZE 16433) 
(FREEZE1 16465) 
(GENCONST 16520) 
(GETSLOT 16570) 
(ILOC 16751) 
(ILOC1 17027) 
(LISTNILS 17043) 
(LOADARG 17237) 
(LOADCARCDR 17364) 
(LOADCOMP 17371) 
(LOADSUBRARGS 17412) 
(LOC 17414) 
(MARKVAL 17445) 
(NONSPECVARS 17467) 
(OUT1 17471) 
(OUTCALLF 17475) 
(OUTCJMP 17510) 
(OUTENDTAG 17522) 
(OUTCALL 17600) 
(OUTJCALL 17656) 
(OUTGOTAB 17732) 
(OUTJMP 17767) 
(OUTJRST 17773) 
(OUTMOVE 17777) 
(OUTMOVEM 20003) 
(OUTPOP 20011) 
(OUTPUSH 20015) 
(OUTPUTSTAT 20047) 
(OUTSTAT 20102) 
(P2*EVAL 20165) 
(P2ARG 20265) 
(P2CARCDR 20354) 
(P2COND 20422) 
(P2COND1 20765) 
(P2GO 21025) 
(P2PROG 21254) 
(P2PROG2 21340) 
(P2PROGN 21366) 
(P2QUOTE 21414) 
(P2RETURN 21446) 
(P2RPLAC 21550) 
(P2SETARG 21652) 
(P2SETQ 22142) 
(P2STORE 22173) 
(PASS2 22334) 
(PASS2LAMBDA 22554) 
(PROGTAG 22600) 
(PROTECTACS 22635) 
(PUTINAC 22656) 
(REMOVE 22704) 
(RESTORE 23034) 
(RSLSET 23071) 
(RST 23133) 
(SAVEACS 23146) 
(SETSLOT 23153) 
(SHRINKPDL 23176) 
(SIDEEFFECTS 23204) 
(SLOTCONT 23207) 
(SLOTPOP 23223) 
(SLOTPUSH 23243) 
(SPECBIND 23315) 
(SPECVARP 23317) 
(TESTJUMP 23371) 
(TRANSOUT 23450) 
(USEDTAGP 23452) 
(CALLSUBR CALLSUBR CALLSUBR CALLSUBR CALLLSUBR CALLLSUBR CALLFSUBR CA~
LLFSUBR CALLFSUBR CALLFUNARGS P2CARCDR DOP2BOOL DOP2ELSE DOP2VAL) 
(BOOLAND BOOLNULL BOOLOR) 
(BOOLEQ P2GO P2QUOTE P2PROG2 P2RETURN P2SETQ) 
(P2ARG P2*EVAL P2COND P2PROG P2PROGN P2RETURN P2RPLAC P2RPLAC P2SETAR~
G P2STORE) 
4 
NIL 
(37 1 3 7 1 3 7 37 3 3) 
(XCONS EQUAL *LESS *GREAT *PLUS *TIMES) 
(CAIE CAIN HLLZS HLRZ HRLM HRRM HRRZ HRRZS MOVEI) 
5 
1 
1 
1 
1 
577777 
(CMPBREAK 23511) 
(COMPERR 23514) 
(EVALREAD 23526) 
(LAPNOTES 23532) 
(USERERR 23535) 
NIL 
(ATMARGIN 23546) 
(CARRETN 23555) 
(CURCOL 23565) 
(FORMF 23600) 
(LINEF 23614) 
(PRINL 23617) 
(PRINS 23633) 
(PRINTEXPR 23636) 
(PRINTN 23657) 
(PRINTSTAT 23704) 
(TABTO 23754) 
(*SP *TB *CR *LF *VT *FF *CO *PT *LP *RP *SL *AM *AT *RO *COLON) 
0 
74 
120 
(ADDTOLIST 23767) 
(ASSOCR 24006) 
(CONSTANTP 24021) 
(COPY 24025) 
(DEINITSYM 24027) 
(FSUBRP 24031) 
(GETGET 24055) 
(LSUBRP 24057) 
(MAKESPECIAL 24104) 
(MAKESYM 24125) 
(MAKEUNSPECIAL 24134) 
(NEXTSYM 24155) 
(NTHCDR 24205) 
(PROGN 24211) 
(STARTSYM 24226) 
(STOPSYM 24242) 
(SUBRP 24244) 
(TOPCOPY 24246) 
NIL *(CINIT)

NIL *↑C
↑C

.SAVE COMPLR
JOB SAVED IN 30K

↑C
.↑C
↑C

.K/F
KJOB
.